PQAXXYVXVYZY0OLVXMVYMXMYMYM0OLSCREEOFFSEXYVXX20LY20LPPMBASVA HHDOUBLE EXAMPLE - ONE SHIP FIRING MISSILES & PRIORITY DEMONSTRATION AF:A,&@ A1""INITILIZE STARTING POSITIONS26-A6-@96-6-cPLAYER #0i T:,"An6-R:,x"@Ae|UPDATE VELOCITY VECTORS}("@6-(6-6@'"@6-'6-@)"@6-6@)6-6@("@ 6-6@(6-@("@6-6@(6-'"@6-@'6-("@6-@(6-6@'"@6-@'6-@UPDATE POSITION PLEYER0 6-%6-% @F6-@F!A6-A @$6-@$!A6-A((6-?:A6<<@<<<, 6-F F:B2y,"@AFIF START PRESSED GOTO 2ND PART DEMO AFIRE MISSILE6-R:,"@Ap("@6-(6-6@'"@6-'6-@)"@6-6@)6-6@("@ 6-6@(6-@("@6-6@(6-'"@6-@'6-("@6-@(6-6@'"@6-@'6-@J6-%@6-%@JCORRECTS MISSILE START TO CENTER OF SHIPUPDATE POSITION MISSILE 0 6-%6-% @@A`!AA` @ A`!A A`((6-?:A6<@<@<<<, 6- A@""REMOVE MISSILE TO OFF SCREEN..6-?:A6<@<@<<<@, A!!2ND PART OF DEMO - PRIORITYWRITE "ATARI" ON SCREEN%%6-F:@,%F:@,$AV6-@ $@%@=%@3'%%@@R=%%@@3/%%@@P/%%@@AINITILIZE PLAYERS36-A6-AP'6-36-'6-@p6-@V'6-@6-@6-R:,"@A UPDATE VELOCITY VECTORS("@6-(6-6@'"@6-'6-@&)"@6-6@)6-6@0("@ 6-6@(6-@:("@6-6@(6-D'"@6-@'6-N("@6-@(6-6@X'"@6-@'6-@bUPDATE POSITION PLAYER0l 6-%6-%q @F6-@Fv!A6-A{ @$6-@$!A6-A((6-?:A6<<@<<<, 6-MOVE BLOCK (PLAYER#2) 6-%!A6-6@ @p6-@((6-?:A6<@<@<<<,HHTEST IF SELECT KEY PRESSED & IF SO SET LETTERS TO BACKGROUND COLORAF:A,88TEST IF OPTION KEY PRESSED & IF SO CHANGE PRIORITY F:B2y,@AA#@%A@@%DEFAULT COLOR A SETUP 6-F:A, 6-$AV+@%@40@4SET BACKGROUND BLACKPOKE IN PM ROUTINE--AP")A6%- POKE IN PM CLEAR ROUTINE --@%")A%- ACTIVATE P/M/AY@b/SET DMACTL -SINGLE LINE4B2w@4SET GRACTL -PLAYERS&MISSILES(WB2V'B2X@WPLAYER 0 REGULAR WIDTH; PLAYER 2 DOUBLE WIDTH-.B2`.MISSILES REGULAR WIDTH20AAR0PLAYER0 BLUE GREEN LUM 840A@R0PLAYER2 RED ORANGE LUM 46_A#@_PRIORITY SELECTED HAS PLAYER 0,1 PLAYFIELD THEN PLAYER 2,3 & BACKGROUND7#BBy#TELL ANTIC PMBASE<aAaPOKE HI BYTE PMBASE INTO SUBROUTINE1350 A=USR(1696,PMBASE):REM CLEAR PM MEMORYO((READ PLAYER DATA INTO STORAGE AREAP-@ Z"% d-@ n"%A(% w!!INITILAZATION 1ST TIME ONLYx6-@6-@ @P'PLAYER SUBROUTINE DATA';;104,162,0,104,104,157,145,6,232,224,5,208,246,173,149'%%6,174,145,6,157,0,208,173,150,6'99133,213,24,105,4,133,207,173,145,6,201,4,176,47,170'((189,133,6,133,212,202,48,4,230,207$'99208,249,173,147,6,133,206,169,0,168,145,206,200,204)'++146,6,144,248,173,148,6,133,206,160,0.';;177,212,145,206,200,204,146,6,144,246,96,56,233,4,1703'))198,207,173,147,6,133,206,160,0,1778'::206,61,137,6,145,206,200,204,146,6,144,243,173,148,6='((133,206,160,0,177,206,29,141,6,145B'77206,200,204,146,6,144,243,96,0,64,128,192,252,243G'$$207,63,3,12,48,192,0,0,0,0,0,0U' CLEAR PM AREA ROUTINE DATAV';;104,104,133,213,104,133,212,162,0,160,0,169,0,145,212['..200,208,251,230,213,232,224,8,144,240,96y'PLAYER DATA~'--153,153,189,189,255,255,189,189,153,153'--255,255,255,255,255,255,255,255,255,255D8:PMEXAMP2.BAS